home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00124_test scripts.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  456 b   |  19 lines
  1. on testInks
  2.   puppetSprite 13, TRUE
  3.   puppetSprite 14, TRUE
  4.   
  5.   repeat with i = 0 to 9
  6.     set the ink of sprite 13 to i
  7.     set the ink of sprite 14 to i
  8.     updateStage
  9.     if not (sprite 13 intersects 14) then put "ink:" && i && "works!"
  10.   end repeat
  11.   
  12.   repeat with i = 32 to 39
  13.     set the ink of sprite 13 to i
  14.     set the ink of sprite 14 to i
  15.     updateStage
  16.     if not (sprite 13 intersects 14) then put "ink:" && i && "works!"
  17.   end repeat
  18. end
  19.